perm filename CRELSP[CRE,BGB] blob
sn#066771 filedate 1973-10-11 generic text, type T, neo UTF8
TITLE CRELSP
EXTERN INUM,MAKNUM
DEFINE DATUM(NAM,WRD){
INTERN NAM↔NAM:↔PUSHJ 14,INUM
ADD 1,BASE
MOVE 1,WRD(1)↔POPJ 14,}
DEFINE LEFT(NAM,WRD){
INTERN NAM↔NAM:↔PUSHJ 14,INUM
ADD 1,BASE
HLRZ 1,WRD(1)↔JRST MAKNUM}
DEFINE RIGHT(NAM,WRD){
INTERN NAM↔NAM:↔PUSHJ 14,INUM
ADD 1,BASE
HRRZ 1,WRD(1)↔JRST MAKNUM}
LEFT(CW,0)↔RIGHT(CCW,0)
LEFT(DAD,1)↔RIGHT(SON,1)
LEFT(TYPE,2)↔RIGHT(RELOC,2)
LEFT(ROW,3)↔RIGHT(COL,3)
LEFT(ENDO,4)↔RIGHT(EXO,4)
LEFT(ENDO,4)↔RIGHT(EXO,4)